home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / PROBLEMS / BENCHMARK / BUBBLESORT / bubbletest / basicV / source < prev   
Text File  |  1992-05-15  |  780b  |  39 lines
  1. 10  DIM a%(1000)
  2. 20
  3. 30  REM pseudo ramdom
  4. 40
  5. 50  LET pseudorandom%=123456
  6. 60  FOR count%=1 TO 1000
  7. 70     LET pseudorandom%=(pseudorandom% + 234567) MOD 567 + 345
  8. 80     LET a%(count%)=pseudorandom%
  9. 90     PRINT a%(count%)
  10. 100 NEXT count%
  11. 110 
  12. 120 *TIME
  13. 130 PROCbubblesort(1000)
  14. 140 *TIME
  15. 150
  16. 160 FOR count%=1 TO 1000
  17. 170    PRINT a%(count%)
  18. 180 NEXT count%
  19. 190 END
  20. 200
  21. 210 DEF PROCbubblesort(length%)
  22. 220  LET flag%=1
  23. 230  REPEAT
  24. 240     LET flag%=0
  25. 250     FOR count%=1 TO length%-1
  26. 260        IF a%(count%)>a%(count%+1) THEN
  27. 270           LET temp%=a%(count%)
  28. 280           LET a%(count%)=a%(count%+1)
  29. 290           LET a%(count%+1)=temp%
  30. 300           LET flag%=1
  31. 310        ENDIF
  32. 320     NEXT count%
  33. 330  UNTIL  flag%=0
  34. 340 ENDPROC
  35. SAVE "<bubble_basic$dir>.program" 
  36. *QUIT
  37.  
  38.  
  39.